home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / game / map_quiz / a_world.bas < prev    next >
BASIC Source File  |  1993-11-30  |  21KB  |  460 lines
  1. 1000 ' ******************************************************************
  2. 1010 ' *                                                                *
  3. 1020 ' *     :::::::::::: A_WORLD.BAS ::::::::::::::                    *
  4. 1030 ' *                                Programmed By T.K.Mosaku        *
  5. 1040 ' *                                ~~~~~~~~~~~~~~~~~~~~~~~~        *
  6. 1050 ' ******************************************************************
  7. 1060 '
  8. 1070 '** 画面表示 **
  9. 1080 MENU=1
  10. 1090 LOAD@"D_WMAP.TIF",  (0,0):CLS 4
  11. 1100 LOAD@"F_SWICH.TIF", (7,7)
  12. 1110 LOAD@"F_SWICH3.TIF",(87,7)
  13. 1120 '
  14. 1130 *MENU_GAMEN
  15. 1140 CLS 4:SIR=0
  16. 1150 GOSUB *BOTTN
  17. 1160 LOCATE 4, 21:COLOR 1:PRINT"世界の国名クイズ･････何問に挑戦しますか｡"
  18. 1170 LOCATE 25,22:COLOR 2:PRINT"　5問　10問　20問  30問　40問"
  19. 1180 LOCATE 48,23:COLOR 1:PRINT"左クリックして選んで下さい｡"
  20. 1190 '
  21. 1200 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  22. 1210 '
  23. 1220 '** MENU 選択 **
  24. 1230 *MENU_CHOIS
  25. 1240 IKISAKI=1
  26. 1250 X=MOUSE(4,0):Y=MOUSE(5,0)
  27. 1260   IF X>93  AND X<117 AND Y>27  AND Y<40  THEN SIR=1 :GOTO *SIRABERU
  28. 1270   IF X>18  AND X<38  AND Y>18  AND Y<38  THEN        GOTO *MENU_1
  29. 1280   IF X>51  AND X<71  AND Y>18  AND Y<38  THEN        GOTO *OWARI_E
  30. 1290   IF X>217 AND X<239 AND Y>420 AND Y<433 THEN PNO= 5:GOTO *BOTTN2
  31. 1300   IF X>258 AND X<287 AND Y>420 AND Y<433 THEN PNO=10:GOTO *BOTTN2
  32. 1310   IF X>305 AND X<336 AND Y>420 AND Y<433 THEN PNO=20:GOTO *BOTTN2
  33. 1320   IF X>353 AND X<383 AND Y>420 AND Y<433 THEN PNO=30:GOTO *BOTTN2
  34. 1330   IF X>401 AND X<432 AND Y>420 AND Y<433 THEN PNO=40:GOTO *BOTTN2
  35. 1340 GOTO 1250
  36. 1350 '
  37. 1360 '** 画面設定 **
  38. 1370 *MOZI
  39. 1380  QQN=0
  40. 1390  IF QQN=2 THEN GOTO 1640
  41. 1400 LOAD@ "E_GRAPH.TIF",(167,454)
  42. 1410  LINE (205,416)-(442,435),PSET,%4,BF
  43. 1420  CLS 4
  44. 1430 LOCATE 5, 21:COLOR 1:PRINT"問  題"
  45. 1440 LOCATE 25,22:COLOR 2:PRINT"                   "
  46. 1450 LOCATE 20,23:COLOR 1
  47. 1460 PRINT"今までの成績   正答数                   正答率         ％"
  48. 1470  IF QQN=1 THEN QQN=QQN+1:GOTO 1640
  49. 1480 '
  50. 1490 '** MAIN LOOTINE **
  51. 1500  CY=0:CN=0:CCN=0:DIM KIR(PNO-1):DIM NFW(PNO):KIRN=0:QQN=0
  52. 1510 '
  53. 1520 'MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
  54. 1530 '
  55. 1540 RANDOMIZE TIME 
  56. 1550 NFW(0)=INT(RND*50)
  57. 1560 T=1
  58. 1570   IF CCN=PNO THEN GOTO 1730
  59. 1580   N=INT(RND*50)+1
  60. 1590   FOR J=0 TO T-1
  61. 1600     IF NFW(J)=N THEN GOTO 1580
  62. 1610   NEXT J
  63. 1620   NFW(T)=N:QQ=N
  64. 1630     MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
  65. 1640     TTN=0:BN=0
  66. 1650     IF QQ=<10           THEN Q=QQ   :GOTO *M0
  67. 1660     IF QQ>10 AND QQ=<20 THEN Q=QQ-10:GOTO *M1
  68. 1670     IF QQ>20 AND QQ=<30 THEN Q=QQ-20:GOTO *M2
  69. 1680     IF QQ>30 AND QQ=<40 THEN Q=QQ-30:GOTO *M3
  70. 1690     IF QQ>40 AND QQ=<50 THEN Q=QQ-40:GOTO *M4
  71. 1700 CCN=CCN+1:T=T+1:GOTO 1570
  72. 1710 T=T+1:GOTO 1570
  73. 1720 '
  74. 1730 IF KIRN=0 THEN 4330 ELSE 4030
  75. 1740 '
  76. 1750 *M0:ON Q GOTO *A1, *A2, *A3, *A4, *A5, *A6, *A7, *A8, *A9, *A10
  77. 1760 *M1:ON Q GOTO *A11,*A12,*A13,*A14,*A15,*A16,*A17,*A18,*A19,*A20
  78. 1770 *M2:ON Q GOTO *A21,*A22,*A23,*A24,*A25,*A26,*A27,*A28,*A29,*A30
  79. 1780 *M3:ON Q GOTO *A31,*A32,*A33,*A34,*A35,*A36,*A37,*A38,*A39,*A40
  80. 1790 *M4:ON Q GOTO *A41,*A42,*A43,*A44,*A45,*A46,*A47,*A48,*A49,*A50
  81. 1800 *M5:ON Q GOTO *A51,*A52,*A53,*A54,*A55,*A56,*A57,*A58,*A59,*A60
  82. 1810 *M6:ON Q GOTO *A61,*A62,*A63,*A64,*A65,*A66,*A67,*A68
  83. 1820 '
  84. 1830 *A1 :A$="ロシア連邦"            :XP=131:YP=129:GOTO *SENTAKU 
  85. 1840 *A2 :A$="アメリカ合衆国"        :XP=548:YP=181:GOTO *SENTAKU
  86. 1850 *A3 :A$="カナダ"                :XP=556:YP=158:GOTO *SENTAKU
  87. 1860 *A4 :A$="ブラジル"              :XP=597:YP=275:GOTO *SENTAKU
  88. 1870 *A5 :A$="アルゼンチン"          :XP=582:YP=321:GOTO *SENTAKU
  89. 1880 *A6 :A$="チリ"                  :XP=561:YP=316:GOTO *SENTAKU
  90. 1890 *A7 :A$="ペル－"                :XP=550:YP=275:GOTO *SENTAKU
  91. 1900 *A8 :A$="ボリビア"              :XP=567:YP=284:GOTO *SENTAKU
  92. 1910 *A9 :A$="パラグアイ"            :XP=586:YP=297:GOTO *SENTAKU
  93. 1920 *A10:A$="コロンビア"            :XP=552:YP=246:GOTO *SENTAKU
  94. 1930 *A11:A$="ベネズエラ"            :XP=570:YP=239:GOTO *SENTAKU
  95. 1940 *A12:A$="メキシコ"              :XP=508:YP=217:GOTO *SENTAKU
  96. 1950 *A13:A$="朝鮮民主主義人民共和国":XP=280:YP=179:GOTO *SENTAKU
  97. 1960 *A14:A$="大韓民国"              :XP=280:YP=185:GOTO *SENTAKU
  98. 1970 *A15:A$="中華人民共和国"        :XP=264:YP=174:GOTO *SENTAKU
  99. 1980 *A16:A$="日本"                  :XP=301:YP=187:GOTO *SENTAKU
  100. 1990 *A17:A$="フィリピン"            :XP=272:YP=231:GOTO *SENTAKU
  101. 2000 *A18:A$="オ－ストラリア"        :XP=318:YP=321:GOTO *SENTAKU
  102. 2010 *A19:A$="インドネシア"          :XP=243:YP=267:GOTO *SENTAKU
  103. 2020 *A20:A$="ベトナム"              :XP=245:YP=218:GOTO *SENTAKU
  104. 2030 *A21:A$="サウジアラビア"        :XP=138:YP=210:GOTO *SENTAKU
  105. 2040 *A22:A$="タイ"                  :XP=239:YP=231:GOTO *SENTAKU
  106. 2050 *A23:A$="ミャンマ－"            :XP=233:YP=229:GOTO *SENTAKU
  107. 2060 *A24:A$="インド"                :XP=195:YP=207:GOTO *SENTAKU
  108. 2070 *A25:A$="パキスタン"            :XP=189:YP=193:GOTO *SENTAKU
  109. 2080 *A26:A$="アフガニスタン"        :XP=180:YP=188:GOTO *SENTAKU
  110. 2090 *A27:A$="イラン"                :XP=149:YP=189:GOTO *SENTAKU
  111. 2100 *A28:A$="フィンランド"          :XP=100:YP=116:GOTO *SENTAKU
  112. 2110 *A29:A$="スエ－デン"            :XP=88 :YP=122:GOTO *SENTAKU
  113. 2120 *A30:A$="ノルウエ－"            :XP=74 :YP=118:GOTO *SENTAKU
  114. 2130 *A31:A$="イギリス"              :XP=56 :YP=145:GOTO *SENTAKU
  115. 2140 *A32:A$="ドイツ"                :XP=78 :YP=146:GOTO *SENTAKU
  116. 2150 *A33:A$="フランス"              :XP=61 :YP=156:GOTO *SENTAKU
  117. 2160 *A34:A$="スペイン"              :XP=57 :YP=175:GOTO *SENTAKU
  118. 2170 *A35:A$="ポルトガル"            :XP=43 :YP=180:GOTO *SENTAKU
  119. 2180 *A36:A$="イタリア"              :XP=83 :YP=174:GOTO *SENTAKU
  120. 2190 *A37:A$="ギリシア"              :XP=99 :YP=181:GOTO *SENTAKU
  121. 2200 *A38:A$="ポ－ランド"            :XP=94 :YP=143:GOTO *SENTAKU
  122. 2210 *A39:A$="ル－マニア"            :XP=103:YP=164:GOTO *SENTAKU
  123. 2220 *A40:A$="アイスランド"          :XP=20 :YP=103:GOTO *SENTAKU
  124. 2230 *A41:A$="エジプト"              :XP=112:YP=199:GOTO *SENTAKU
  125. 2240 *A42:A$="エチオピア"            :XP=126:YP=240:GOTO *SENTAKU
  126. 2250 *A43:A$="南アフリカ連邦"        :XP=108:YP=307:GOTO *SENTAKU
  127. 2260 *A44:A$="リビア"                :XP=82 :YP=197:GOTO *SENTAKU
  128. 2270 *A45:A$="アルジェリア"          :XP=63 :YP=188:GOTO *SENTAKU
  129. 2280 *A46:A$="モロッコ"              :XP=48 :YP=193:GOTO *SENTAKU
  130. 2290 *A47:A$="ナミビア"              :XP=88 :YP=297:GOTO *SENTAKU
  131. 2300 *A48:A$="モンゴル"              :XP=243:YP=156:GOTO *SENTAKU
  132. 2310 *A49:A$="モ－リタニア"          :XP=32 :YP=220:GOTO *SENTAKU
  133. 2320 *A50:A$="ス－ダン"              :XP=114:YP=228:GOTO *SENTAKU
  134. 2330 *A51:A$="エクアドル"            :GOTO *SENTAKU
  135. 2340 *A52:A$="キルギスタン"          :GOTO *SENTAKU
  136. 2350 *A53:A$="カザフスタン"          :GOTO *SENTAKU
  137. 2360 *A54:A$="トルクメニスタン"      :GOTO *SENTAKU
  138. 2370 *A55:A$="マダガスカル"          :GOTO *SENTAKU
  139. 2380 *A56:A$="モザンビーク"          :GOTO *SENTAKU
  140. 2390 *A57:A$="ジンバブエ"            :GOTO *SENTAKU
  141. 2400 *A58:A$="ボツワナ"              :GOTO *SENTAKU
  142. 2410 *A59:A$="ザンビア"              :GOTO *SENTAKU
  143. 2420 *A60:A$="タンザニア"            :GOTO *SENTAKU
  144. 2430 *A61:A$="ケニア"                :GOTO *SENTAKU
  145. 2440 *A62:A$="ソマリア"              :GOTO *SENTAKU
  146. 2450 *A63:A$="アンゴラ"              :GOTO *SENTAKU
  147. 2460 *A64:A$="ザイール"              :GOTO *SENTAKU
  148. 2470 *A65:A$="チャド"                :GOTO *SENTAKU
  149. 2480 *A66:A$="ナイジェリア"          :GOTO *SENTAKU
  150. 2490 *A67:A$="ニジェール"            :GOTO *SENTAKU
  151. 2500 *A68:A$="マリ"                  :GOTO *SENTAKU
  152. 2510 *SENTAKU
  153. 2520   IF TTN=0 THEN GOTO *WRITE 
  154. 2530   IF TTN=1 THEN GOTO *WRITE_NO 
  155. 2540   IF TTN=2 THEN GOTO *SIRABE_WRITE 
  156. 2550 '
  157. 2560 *WRITE
  158. 2570   LOCATE 14,21:COLOR 2:PRINT "                                    "
  159. 2580   LOCATE 14,21:COLOR 2:PRINT A$
  160. 2590   GOTO 2630
  161. 2600 '
  162. 2610 *POINT
  163. 2620 MOUSE 5:MOUSE 0:MOUSE 1,X,Y,1: MOUSE 4,8,8,611,364:GOTO 2650
  164. 2630 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
  165. 2640 B=1
  166. 2650 X=MOUSE(4,0):Y=MOUSE(5,0)
  167. 2660 IF X>93  AND X<117 AND Y>27  AND Y<40  THEN       GOTO *SIRABERU
  168. 2670 IF X>125 AND X<147 AND Y>27  AND Y<40  THEN       GOTO *MODORU
  169. 2680 IF X>18  AND X<38  AND Y>18  AND Y<38  THEN       GOTO *MENU_E
  170. 2690 IF X>51  AND X<71  AND Y>18  AND Y<38  THEN       GOTO *OWARI_E
  171. 2700 IF X>129 AND X<134 AND Y>127 AND Y<132 THEN TT=1 :GOTO *BUNKI  '1
  172. 2710 IF X>546 AND X<551 AND Y>179 AND Y<183 THEN TT=2 :GOTO *BUNKI  '2
  173. 2720 IF X>554 AND X<559 AND Y>156 AND Y<161 THEN TT=3 :GOTO *BUNKI  '3
  174. 2730 IF X>595 AND X<600 AND Y>273 AND Y<278 THEN TT=4 :GOTO *BUNKI  '4
  175. 2740 IF X>580 AND X<585 AND Y>319 AND Y<324 THEN TT=5 :GOTO *BUNKI  '5
  176. 2750 IF X>559 AND X<564 AND Y>314 AND Y<319 THEN TT=6 :GOTO *BUNKI  '6
  177. 2760 IF X>548 AND X<553 AND Y>273 AND Y<278 THEN TT=7 :GOTO *BUNKI  '7
  178. 2770 IF X>565 AND X<570 AND Y>282 AND Y<287 THEN TT=8 :GOTO *BUNKI  '8
  179. 2780 IF X>584 AND X<589 AND Y>295 AND Y<300 THEN TT=9 :GOTO *BUNKI  '9
  180. 2790 IF X>550 AND X<555 AND Y>244 AND Y<249 THEN TT=10:GOTO *BUNKI '10
  181. 2800 IF X>568 AND X<573 AND Y>237 AND Y<242 THEN TT=11:GOTO *BUNKI '11
  182. 2810 IF X>506 AND X<511 AND Y>215 AND Y<220 THEN TT=12:GOTO *BUNKI '12
  183. 2820 IF X>278 AND X<283 AND Y>177 AND Y<182 THEN TT=13:GOTO *BUNKI '13
  184. 2830 IF X>278 AND X<283 AND Y>183 AND Y<188 THEN TT=14:GOTO *BUNKI '14
  185. 2840 IF X>262 AND X<267 AND Y>172 AND Y<177 THEN TT=15:GOTO *BUNKI '15
  186. 2850 IF X>299 AND X<304 AND Y>185 AND Y<190 THEN TT=16:GOTO *BUNKI '16
  187. 2860 IF X>270 AND X<275 AND Y>229 AND Y<234 THEN TT=17:GOTO *BUNKI '17
  188. 2870 IF X>316 AND X<321 AND Y>319 AND Y<323 THEN TT=18:GOTO *BUNKI '18
  189. 2880 IF X>241 AND X<246 AND Y>265 AND Y<270 THEN TT=19:GOTO *BUNKI '19
  190. 2890 IF X>243 AND X<248 AND Y>216 AND Y<221 THEN TT=20:GOTO *BUNKI '20
  191. 2900 IF X>136 AND X<141 AND Y>208 AND Y<213 THEN TT=21:GOTO *BUNKI '21
  192. 2910 IF X>237 AND X<242 AND Y>229 AND Y<234 THEN TT=22:GOTO *BUNKI '22
  193. 2920 IF X>231 AND X<236 AND Y>227 AND Y<232 THEN TT=23:GOTO *BUNKI '23
  194. 2930 IF X>193 AND X<198 AND Y>205 AND Y<210 THEN TT=24:GOTO *BUNKI '24
  195. 2940 IF X>187 AND X<192 AND Y>191 AND Y<196 THEN TT=25:GOTO *BUNKI '25
  196. 2950 IF X>178 AND X<183 AND Y>186 AND Y<191 THEN TT=26:GOTO *BUNKI '26
  197. 2960 IF X>147 AND X<152 AND Y>187 AND Y<192 THEN TT=27:GOTO *BUNKI '27
  198. 2970 IF X>98  AND X<103 AND Y>114 AND Y<119 THEN TT=28:GOTO *BUNKI '28
  199. 2980 IF X>86  AND X<91  AND Y>120 AND Y<125 THEN TT=29:GOTO *BUNKI '29
  200. 2990 IF X>72  AND X<77  AND Y>116 AND Y<121 THEN TT=30:GOTO *BUNKI '30
  201. 3000 IF X>54  AND X<59  AND Y>143 AND Y<148 THEN TT=31:GOTO *BUNKI '31
  202. 3010 IF X>76  AND X<81  AND Y>144 AND Y<149 THEN TT=32:GOTO *BUNKI '32
  203. 3020 IF X>59  AND X<64  AND Y>154 AND Y<159 THEN TT=33:GOTO *BUNKI '33
  204. 3030 IF X>52  AND X<60  AND Y>172 AND Y<178 THEN TT=34:GOTO *BUNKI '34
  205. 3040 IF X>41  AND X<46  AND Y>178 AND Y<183 THEN TT=35:GOTO *BUNKI '35
  206. 3050 IF X>81  AND X<86  AND Y>172 AND Y<177 THEN TT=36:GOTO *BUNKI '36
  207. 3060 IF X>97  AND X<102 AND Y>179 AND Y<184 THEN TT=37:GOTO *BUNKI '37
  208. 3070 IF X>92  AND X<97  AND Y>141 AND Y<146 THEN TT=38:GOTO *BUNKI '38
  209. 3080 IF X>101 AND X<106 AND Y>162 AND Y<167 THEN TT=39:GOTO *BUNKI '39
  210. 3090 IF X>18  AND X<23  AND Y>101 AND Y<106 THEN TT=40:GOTO *BUNKI '40
  211. 3100 IF X>110 AND X<115 AND Y>197 AND Y<203 THEN TT=41:GOTO *BUNKI '41
  212. 3110 IF X>124 AND X<129 AND Y>238 AND Y<243 THEN TT=42:GOTO *BUNKI '42
  213. 3120 IF X>106 AND X<111 AND Y>305 AND Y<310 THEN TT=43:GOTO *BUNKI '43
  214. 3130 IF X>80  AND X<85  AND Y>195 AND Y<200 THEN TT=44:GOTO *BUNKI '44
  215. 3140 IF X>61  AND X<66  AND Y>186 AND Y<191 THEN TT=45:GOTO *BUNKI '45
  216. 3150 IF X>46  AND X<51  AND Y>191 AND Y<196 THEN TT=46:GOTO *BUNKI '46
  217. 3160 IF X>86  AND X<91  AND Y>295 AND Y<300 THEN TT=47:GOTO *BUNKI '47
  218. 3170 IF X>241 AND X<246 AND Y>154 AND Y<159 THEN TT=48:GOTO *BUNKI '48
  219. 3180 IF X>30  AND X<35  AND Y>218 AND Y<223 THEN TT=49:GOTO *BUNKI '49
  220. 3190 IF X>112 AND X<117 AND Y>226 AND Y<231 THEN TT=50:GOTO *BUNKI '50
  221. 3200 IF X>546 AND X<551 AND Y>253 AND Y<258 THEN TT=51:GOTO *BUNKI '1
  222. 3210 IF X>191 AND X<196 AND Y>166 AND Y<171 THEN TT=52:GOTO *BUNKI '2
  223. 3220 IF X>197 AND X<202 AND Y>156 AND Y<161 THEN TT=53:GOTO *BUNKI '3
  224. 3230 IF X>161 AND X<166 AND Y>183 AND Y<188 THEN TT=54:GOTO *BUNKI '4
  225. 3240 IF X>140 AND X<145 AND Y>290 AND Y<295 THEN TT=55:GOTO *BUNKI '5
  226. 3250 IF X>118 AND X<123 AND Y>298 AND Y<303 THEN TT=56:GOTO *BUNKI '6
  227. 3260 IF X>111 AND X<116 AND Y>289 AND Y<294 THEN TT=57:GOTO *BUNKI '7
  228. 3270 IF X>100 AND X<105 AND Y>298 AND Y<303 THEN TT=58:GOTO *BUNKI '8
  229. 3280 IF X>106 AND X<111 AND Y>283 AND Y<288 THEN TT=59:GOTO *BUNKI '9
  230. 3290 IF X>123 AND X<128 AND Y>270 AND Y<275 THEN TT=60:GOTO *BUNKI '10
  231. 3300 IF X>123 AND X<128 AND Y>256 AND Y<261 THEN TT=61:GOTO *BUNKI '11
  232. 3310 IF X>139 AND X<144 AND Y>251 AND Y<256 THEN TT=62:GOTO *BUNKI '12
  233. 3320 IF X>83  AND X<88  AND Y>273 AND Y<278 THEN TT=63:GOTO *BUNKI '13
  234. 3330 IF X>89  AND X<94  AND Y>262 AND Y<267 THEN TT=64:GOTO *BUNKI '14
  235. 3340 IF X>86  AND X<91  AND Y>231 AND Y<236 THEN TT=65:GOTO *BUNKI '15
  236. 3350 IF X>71  AND X<76  AND Y>236 AND Y<241 THEN TT=66:GOTO *BUNKI '16
  237. 3360 IF X>64  AND X<69  AND Y>226 AND Y<231 THEN TT=67:GOTO *BUNKI '17
  238. 3370 IF X>44  AND X<49  AND Y>227 AND Y<232 THEN TT=68:GOTO *BUNKI '18
  239. 3380 IF B=1 THEN 3390 ELSE 2650
  240. 3390 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
  241. 3400 B=B+1
  242. 3410 GOTO 2650
  243. 3420 '
  244. 3430 *BUNKI
  245. 3440   IF BN=0 THEN *QUIZ ELSE *SIRABE
  246. 3450 *QUIZ 
  247. 3460   IF QQ=TT THEN *YES ELSE *NO
  248. 3470 *SIRABE 
  249. 3480   TTN=2:GOTO *CHECK
  250. 3490 '
  251. 3500 *YES
  252. 3510  CY=CY+1
  253. 3520    LOCATE 15,22:COLOR 3: PRINT"★★★ 正解です｡ ★★★" 
  254. 3530    PCMPLAY YES_S%,120
  255. 3540  GOSUB *COUNT
  256. 3550  WAIT 100
  257. 3560  WAIT 100
  258. 3570    LOCATE 15,22:COLOR 1:PRINT"                         " 
  259. 3580  IF QQN=2 THEN GOTO 4270
  260. 3590  GOTO 1700
  261. 3600 '
  262. 3610 *NO
  263. 3620  CN=CN+1:TTN=1
  264. 3630  PCMPLAY NO_S%,120
  265. 3640  XPP=XP:YPP=YP
  266. 3650      *CHECK
  267. 3660       IF TT=<10           THEN Q=TT   :GOTO *M0
  268. 3670       IF TT>10 AND TT=<20 THEN Q=TT-10:GOTO *M1
  269. 3680       IF TT>20 AND TT=<30 THEN Q=TT-20:GOTO *M2
  270. 3690       IF TT>30 AND TT=<40 THEN Q=TT-30:GOTO *M3
  271. 3700       IF TT>40 AND TT=<50 THEN Q=TT-40:GOTO *M4
  272. 3710       IF TT>50 AND TT=<60 THEN Q=TT-50:GOTO *M5
  273. 3720       IF TT>60 AND TT=<70 THEN Q=TT-60:GOTO *M6
  274. 3730    *WRITE_NO
  275. 3740    LOCATE 10,22:COLOR 3
  276. 3750    PRINT"★★★ 残念でした｡ ★★★   そこは  『";A$;"』  です｡" 
  277. 3760  GOSUB *COUNT
  278. 3770  IF QQN=0 THEN GOSUB *KIROKU
  279. 3780  WAIT 70
  280. 3790    CIRCLE (XPP,YPP),6,5,,,,F,XOR
  281. 3800  WAIT 250
  282. 3810    CIRCLE (XPP,YPP),6,5,,,,F,XOR
  283. 3820  LOCATE 10,22:PRINT SPACE$(60)
  284. 3830  IF QQN=2 THEN GOTO 4270
  285. 3840  GOTO 1700
  286. 3850 '
  287. 3860 *COUNT
  288. 3870  CT=CY+CN
  289. 3880  CC=INT((CY/CT)*100)
  290. 3890  CG=INT(CC*3):IF CG>297 THEN CG=297
  291. 3900    LOCATE 44,23:PRINT "             "
  292. 3910    LOCATE 70,23:PRINT "     "
  293. 3920    LOCATE 44,23:COLOR 3:PRINT "(";CY;"/";CT;")  "
  294. 3930    LOCATE 70,23:COLOR 3:PRINT CC
  295. 3940    LINE (280,   457)-(578,   461),PSET,%4,BF
  296. 3950    LINE (280,   457)-(281+CG,461),PSET,%3,BF
  297. 3960    LINE (280+CG,457)-(578,   461),PSET,%4,BF
  298. 3970  RETURN
  299. 3980 '
  300. 3990 *KIROKU
  301. 4000  KIR(KIRN)=QQ:KIRN=KIRN+1
  302. 4010  RETURN
  303. 4020 '
  304. 4030 '** 確認 選択 **
  305. 4040  LOCATE 5,21 :COLOR 2:PRINT"あなたの正解は、";PNO;"問中";CY;"問です｡"
  306. 4050  LOCATE 21,22 :COLOR 1:PRINT CN;"問まちがいました｡"
  307. 4060   WAIT 300
  308. 4070 MOUSE 5:CLS 4:LOAD@ "E_CLEAR.TIF",(167,454)
  309. 4080   LOCATE 10,21 :COLOR 2:PRINT"間違いを確かめますか?"
  310. 4090   IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
  311. 4100   IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
  312. 4110   BX=198:BY=418:BXL=106:BYL=16:GOSUB *BOTTN1
  313. 4120   BX=198:BY=437:BXL=106:BYL=16:GOSUB *BOTTN1
  314. 4130   LOCATE 20,22 :COLOR 1:PRINT"      確かめます｡"
  315. 4140   LOCATE 20,23 :COLOR 1:PRINT"     確かめません｡"
  316. 4150 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1:IKISAKI=2
  317. 4160 X=MOUSE(4,0):Y=MOUSE(5,0)
  318. 4170   IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
  319. 4180   IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
  320. 4190   IF Y>418 AND Y<432 THEN BY=418:IKISAKI=2:GOTO *BOTTN3
  321. 4200   IF Y>438 AND Y<453 THEN BY=437:IKISAKI=3:GOTO *BOTTN3
  322. 4210 GOTO 4160
  323. 4220 '
  324. 4230 *KAKUNIN_ROOTINE
  325. 4240   PNO=KIRN-1:QQN=1:CY=0:CN=0 
  326. 4250   FOR J=0 TO PNO
  327. 4260     QQ=KIR(J):GOTO 1390
  328. 4270   NEXT J
  329. 4280  MOUSE 5:CLS 4:LOAD@ "E_CLEAR.TIF",(167,454) 
  330. 4290  LOCATE 10,21 :COLOR 2:PRINT"もう一度､間違いを確かめますか?"
  331. 4300  GOTO 4110
  332. 4310 '
  333. 4320 *TUZUKE
  334. 4330 LOAD@ "E_CLEAR.TIF",(167,454) 
  335. 4340 CLS 4:ERASE KIR:ERASE NFW:ERASE XS
  336. 4350   LOCATE 10,21 :COLOR 2:PRINT"続けますか?"
  337. 4360   BX=198:BY=418:BXL=106:BYL=16:GOSUB *BOTTN1
  338. 4370   BX=198:BY=437:BXL=106:BYL=16:GOSUB *BOTTN1
  339. 4380   LOCATE 20,22 :COLOR 1:PRINT"       続けます｡"
  340. 4390   LOCATE 20,23 :COLOR 1:PRINT"      終わります｡"
  341. 4400 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  342. 4410 X=MOUSE(4,0):Y=MOUSE(5,0)
  343. 4420   IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
  344. 4430   IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
  345. 4440   IF Y>418 AND Y<432 THEN BY=418:IKISAKI=4:GOTO *BOTTN3
  346. 4450   IF Y>438 AND Y<453 THEN BY=437:IKISAKI=5:GOTO *BOTTN3
  347. 4460 GOTO 4410
  348. 4470 '
  349. 4480 IF MENU=1 THEN 4510 ELSE 4720
  350. 4490 '
  351. 4500 *OWARI
  352. 4510   CLS 4 
  353. 4520   LOCATE 10,21 :COLOR 2:PRINT"メニュ－に戻りますか?"
  354. 4530   BX=198:BY=418:BXL=220:BYL=16:GOSUB *BOTTN1
  355. 4540   BY=437:GOSUB *BOTTN1
  356. 4550   LOCATE 20,22 :COLOR 1:PRINT"        メニュ－に戻ります｡"
  357. 4560   LOCATE 20,23 :COLOR 1:PRINT"     メニュ－に戻らず終わります｡"
  358. 4570 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  359. 4580 X=MOUSE(4,0):Y=MOUSE(5,0)
  360. 4590   IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
  361. 4600   IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
  362. 4610   IF Y>418 AND Y<432 THEN BY=418:IKISAKI=6:GOTO *BOTTN3
  363. 4620   IF Y>438 AND Y<453 THEN BY=437:IKISAKI=7:GOTO *BOTTN3
  364. 4630 GOTO 4580
  365. 4640 '
  366. 4650 *MENU_E
  367. 4660 ERASE KIR:ERASE NFW:ERASE XS
  368. 4670 *MENU_1
  369. 4680 CHAIN "B_MENU2.BAS",,ALL
  370. 4690 RUN "B_MENU2.BAS"
  371. 4700 '
  372. 4710 *OWARI_E
  373. 4720 CHAIN "B_END.BAS",,ALL
  374. 4730 RUN "B_END.BAS"
  375. 4740 '
  376. 4750 *SETTEI '** 音声読み込み ROOTINE **
  377. 4760 '
  378. 4770 DIM NO_S%  (23015)
  379. 4780 DIM YES_S% (22706)
  380. 4790 '
  381. 4800 LOAD@ "NO_S.SND", NO_S%
  382. 4810 LOAD@ "YES_S.SND", YES_S%
  383. 4820 ' 
  384. 4830 RETURN
  385. 4840 '
  386. 4850 END
  387. 4860 '
  388. 4870 *BOTTN
  389. 4880  DIM XS(4):BXL=36:BY=417:BYL=18:COL=7
  390. 4890  RESTORE 4930
  391. 4900  FOR S=0 TO 4
  392. 4910    READ XS(S) 
  393. 4920  NEXT
  394. 4930  DATA 206,254,302,350,398
  395. 4940  FOR S=0 TO 4
  396. 4950    BX=XS(S)
  397. 4960    GOSUB *BOTTN1
  398. 4970  NEXT
  399. 4980 RETURN
  400. 4990 ' 
  401. 5000 *BOTTN1
  402. 5010  LINE(BX,BY)-(BX+BXL,BY+BYL),PSET,5,BF
  403. 5020  FOR SI = 0 TO 2
  404. 5030    LINE(BX+SI, BY+SI)-(BX+BXL-SI, BY+SI), PSET, 7
  405. 5040    LINE(BX+SI, BY+SI)-(BX+SI, BY+BYL-SI), PSET, 7
  406. 5050    LINE(BX+SI, BY+BYL-SI)-(BX+BXL-SI, BY+BYL-SI), PSET,1
  407. 5060    LINE(BX+BXL-SI, BY+SI)-(BX+BXL-SI, BY+BYL-SI), PSET,1
  408. 5070  NEXT
  409. 5080 RETURN
  410. 5090 '
  411. 5100 *BOTTN2
  412. 5110  BXL=36:BY=417:BYL=18
  413. 5120  IF PNO=5  THEN BX=206:GOTO 5180
  414. 5130  IF PNO=10 THEN BX=254:GOTO 5180
  415. 5140  IF PNO=20 THEN BX=302:GOTO 5180
  416. 5150  IF PNO=30 THEN BX=350:GOTO 5180 
  417. 5160  IF PNO=40 THEN BX=398:GOTO 5180
  418. 5170 *BOTTN3
  419. 5180  FOR SI = 0 TO 2
  420. 5190    LINE(BX+SI, BY+SI)-(BX+BXL-SI, BY+SI), PSET,1
  421. 5200    LINE(BX+SI, BY+SI)-(BX+SI, BY+BYL-SI), PSET,1
  422. 5210    LINE(BX+SI, BY+BYL-SI)-(BX+BXL-SI, BY+BYL-SI),PSET,7
  423. 5220    LINE(BX+BXL-SI, BY+SI)-(BX+BXL-SI, BY+BYL-SI),PSET,7
  424. 5230  NEXT
  425. 5240 WAIT 75
  426. 5250    LINE(196,415)-(451,455),PSET,%4,BF:CLS 4
  427. 5260 ON IKISAKI GOTO *MOZI,*KAKUNIN_ROOTINE,*TUZUKE,*MENU_GAMEN,*OWARI,*MENU_1,*OWARI_E
  428. 5270 '
  429. 5280 *MOUS
  430. 5290  MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  431. 5300  X=MOUSE(4,0):Y=MOUSE(5,0)
  432. 5310  LOCATE 55,22:PRINT X;Y
  433. 5320  GOTO 5300
  434. 5330 '
  435. 5340 *SIRABERU
  436. 5350   IF SIR=1 THEN GOTO 5390
  437. 5360   LOCATE 14,21:PRINT "                                    "
  438. 5370   LOCATE 14,21:COLOR 3:PRINT "クイズ中断中, 調べモードです｡"
  439. 5380   GOTO 5420
  440. 5390   LINE(199,415)-(437,437),PSET,%4,BF:LOCATE 24,23:PRINT SPACE$(55)
  441. 5400   LOCATE 24,21:PRINT "                                    "
  442. 5410   LOCATE 24,21:COLOR 3:PRINT "クイズ中断中, 調べモードです｡"
  443. 5420   LOCATE 24,22:PRINT SPACE$(50)
  444. 5430   BN=1:GOTO *POINT
  445. 5440 '
  446. 5450 *SIRABE_WRITE
  447. 5460  LOCATE 15,22:COLOR 3:PRINT SPACE$(55)
  448. 5470  FOR T=5 TO 2 STEP -1 
  449. 5480    LOCATE 15,22:COLOR T:PRINT"そこは 『";A$;"』  です｡" 
  450. 5490    WAIT 25
  451. 5500  NEXT
  452. 5510  WAIT 50:GOTO *POINT
  453. 5520 '
  454. 5530 *MODORU
  455. 5540  IF SIR=1 THEN ERASE XS:GOTO *MENU_GAMEN'
  456. 5550  LOCATE 24,21:PRINT "                                    "
  457. 5560  LOCATE 15,22:PRINT SPACE$(50)
  458. 5570  GOTO 1710'
  459. 5580 '
  460.